home *** CD-ROM | disk | FTP | other *** search
/ Programming Microsoft Visual Basic .NET / Programming Microsoft Visual Basic .NET (Microsoft Press)(X08-78517)(2002).bin / setup / vbnet / 08 net data types / nettypesdemo / optioncomparetext.vb < prev   
Encoding:
Text File  |  2002-03-16  |  266 b   |  13 lines
  1. Option Compare Text
  2.  
  3. Module OptionCompareText
  4.     Sub TestOptionCompareText(ByVal times As Integer)
  5.         Dim i As Integer
  6.         Dim res As Boolean
  7.         For i = 1 To times
  8.             res = ("1111" >= CStr(i))
  9.         Next
  10.     End Sub
  11.  
  12. End Module
  13.